home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / twview93.zip / INITGRPH.INC < prev    next >
Text File  |  1992-03-27  |  763b  |  32 lines
  1.  
  2. procedure InitGraphics;
  3. var
  4.   path     : string;
  5.   grDriver : Integer;
  6.   grMode   : Integer;
  7.   ErrCode  : Integer;
  8. begin
  9.   if SVGA then
  10.     InitializeSpecialGraphics
  11.   else
  12.     begin
  13.       grDriver := Detect;
  14.       InitGraph(grDriver,grMode,'');
  15.       ErrCode := GraphResult;
  16.       if ErrCode = grFileNotFound then
  17.         begin
  18.           write('.BGI file not found.  Please enter full path to .BGI file:  ');
  19.           readln( path );
  20.           Initgraph( grDriver, grMode, '');
  21.           ErrCode := GraphResult;
  22.         end;
  23.       if ErrCode <> grOk then
  24.         WriteLn('Graphics error:',
  25.                 GraphErrorMsg(ErrCode))
  26.       else
  27.         SetTextJustify( CenterText, CenterText );
  28.     end; {else}
  29. end; {InitGraphics}
  30.  
  31.  
  32.